* lisp/pcmpl-gnu.el (pcomplete/tar): Check obsolete variable is bound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e1ed5d4f4823fc22c2a15354309bdb711e34f28..f93b5a2ebcf20babb8935f788a854599df740ab4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-01  Glenn Morris  <rgm@gnu.org>
 
+       * pcmpl-gnu.el (pcomplete/tar): Check obsolete variable is bound.
+
        Plain (f)boundp silences compilation warnings since Emacs 22.1.
        * progmodes/cc-cmds.el (delete-forward-p):
        * progmodes/cc-defs.el (buffer-syntactic-context-depth):

diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index 91b146fdc788b88cc0fad35f02462ba99a79abcb..fb31984faccb954d6fa0b770d9ce3e5248799a18 100644 (file)
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -158,7 +158,8 @@
   "Completion for the GNU tar utility."
   ;; options that end in an equal sign will want further completion...
   (let (saw-option complete-within)
-    (let ((pcomplete-suffix-list (cons ?= pcomplete-suffix-list)))
+    (let ((pcomplete-suffix-list (if (boundp 'pcomplete-suffix-list)
+                                     (cons ?= pcomplete-suffix-list))))
       (while (pcomplete-match "^-" 0)
         (setq saw-option t)
         (if (pcomplete-match "^--" 0)